(Fx_list_fonts) [BROKEN_XLISTFONTSWITHINFO]:

Free the font, and the fontinfo too if we don't want it.

diff --git a/src/xfns.c b/src/xfns.c
index 36d164a45c8ff6be5b971010b141b29bbd4b1fa4..a141c694767292f6a2efb98ad807107e74e2b0fe 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3480,6 +3480,12 @@ even if they match PATTERN and FACE.")
              UNBLOCK_INPUT;
 
              keeper = thisinfo && same_size_fonts (thisinfo, size_ref);
+             BLOCK_INPUT;
+             if (thisinfo && ! keeper)
+               XFreeFont (FRAME_X_DISPLAY (f), thisinfo);
+             else if (thisinfo)
+               XFreeFontInfo (NULL, thisinfo, 1);
+             UNBLOCK_INPUT;
 #else
              keeper = same_size_fonts (&info[i], size_ref);
 #endif